﻿<!-- #include file="ding.asp" -->
<!-- #include file="mymin.asp" -->
<%
Call Head()

w "<card title=""栏目分类管理""><p>"

Dim id,idd,lxl,rs,sql
id= int(request.QueryString("id"))
idd= int(request.QueryString("idd"))
lxl= request.QueryString("lx")
if lxl=0 then

	%><a href="preview.asp?id=<%=id%>&amp;sid=<%=sid%>">[设计预览]</a><br/><a href="classadd.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;lxl=<%=lxl%>">[添加栏目]</a><br/><%
end if

set rs=server.createobject("adodb.recordset")
rs.open "select * from 74hu_class where classid="&id,myconn,1,1

if rs("lx")=0 then
	lxx="页面菜单"
elseif rs("lx")=1 then lxx="文章栏目"
elseif rs("lx")=2 then lxx="UBB标签"
elseif rs("lx")=3 then lxx="论坛栏目"
elseif rs("lx")=8 then lxx="随机广告"
elseif rs("lx")=9 then lxx="WML标签"
elseif rs("lx")=10 then lxx="最新文章"
elseif rs("lx")=11 then lxx="最热文章"
elseif rs("lx")=12 then lxx="随机文章"
elseif rs("lx")=13 then lxx="最新帖子"
elseif rs("lx")=14 then lxx="最热帖子"
elseif rs("lx")=15 then lxx="随机帖子"
elseif rs("lx")=16 then lxx="推荐文章"
elseif rs("lx")=17 then lxx="精华帖子"
elseif rs("lx")=19 then lxx="站内搜框"
elseif rs("lx")=20 then lxx="网站群聊"
end if
w "项目名称:"&nowml(left(rs("class"),30))&"<br/>项目类型:"&lxx&"<br/>项目编号:"&rs("lx")&"<br/>项目排序:"&rs("pid")&"<br/>"

if rs("br")=1 then
	w "项目换行:换行<br/>"
else
	w "项目换行:不换行<br/>"
end if

if rs("hide")=0 Then
	w "项目状态:直接显示<br/>"
Else
	w "项目状态:前台隐藏<br/>"
End If

w "-----------<br/>"
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql = "select * from 74hu_class where parent="&id&" order by pid asc"
rs.open sql,myconn,1,1
If Not rs.eof	Then
	Dim PageSize,i,page,pagecount,count
	PageSize=15
	Count=rs.recordcount
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	For i=1 To PageSize
		If rs.eof Then Exit For
		%><a href="clist.asp?sid=<%=sid%>&amp;id=<%=rs("classid")%>&amp;idd=<%=id%>&amp;lx=<%=rs("lx")%>&amp;lxl=<%=lxl%>">[管理]></a><%=rs("pid")%>.<%=nowml(left(rs("class"),20))%><br/><%
		rs.moveNext
	Next
	w showPage("clist.asp", "id:"&id&",lx:"&lxl, page, pageCount)
Else
	w "(没有下级栏目)"
end if
%>
<br/><a href="editclass.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;lx=<%=lxl%>">[编辑栏目]</a><br/>
<a href='move.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;lx=<%=lxl%>'>[移动栏目]</a><br/>
<a href='delcl.asp?sid=<%=sid%>&amp;id=<%=id%>&amp;idd=<%=idd%>&amp;lx=<%=lxl%>'>[删除栏目]</a><br/>
<%
if idd<>0 then
	%><a href="Clist.asp?sid=<%=sid%>&amp;id=<%=idd%>&amp;lx=0">[栏目分类]</a><br/><%
end if
rs.close
set rs=nothing
%>
<a href="class.asp?sid=<%=sid%>">[设计中心]</a><%Call rootLast%>